10008 - What's cryptanalisis/p10008.dpr

   1 program p10008;\r
   2 \r
   3 {$APPTYPE CONSOLE}\r
   4 uses\r
   5   SysUtils;\r
   6 \r
   7 var\r
   8   a : Array[0..25] of integer;\r
   9   b : Array[0..25] of char;\r
  10   lineas :  integer;\r
  11   entrada : string;\r
  12   i,j, tempi : integer;\r
  13   tempc : char;\r
  14 \r
  15 begin\r
  16   for i := 0 to 25 do\r
  17     b[i] := char(i+65);\r
  18   fillChar(a, 26, 0);\r
  19   readLn(lineas);\r
  20   while (lineas > 0) do\r
  21     begin\r
  22       readLn(entrada);\r
  23       for i := 1 to length(entrada) do\r
  24         begin\r
  25           entrada[i] := uppercase(entrada[i])[1];\r
  26           if ((integer(entrada[i]) >= 65) and (integer(entrada[i]) <= 90)) then\r
  27             begin\r
  28               inc(a[integer(entrada[i]) - 65], 1);\r
  29             end;\r
  30         end;\r
  31       lineas := lineas - 1;\r
  32     end;\r
  33   for i := 0 to 24 do\r
  34     for j := i + 1 to 25 do\r
  35       begin\r
  36         if a[i] < a[j] then\r
  37           begin\r
  38             tempi := a[i];\r
  39             a[i] := a[j];\r
  40             a[j] := tempi;\r
  41             tempc := b[i];\r
  42             b[i] := b[j];\r
  43             b[j] := tempc;\r
  44           end\r
  45         else if a[i] = a[j] then\r
  46           begin\r
  47             if integer(b[i]) > integer(b[j]) then\r
  48               begin\r
  49             tempi := a[i];\r
  50             a[i] := a[j];\r
  51             a[j] := tempi;\r
  52             tempc := b[i];\r
  53             b[i] := b[j];\r
  54             b[j] := tempc;\r
  55               end;\r
  56           end;\r
  57       end;\r
  58   for i := 0 to 25 do\r
  59     begin\r
  60       if a[i] > 0 then\r
  61         writeLn(b[i], ' ', a[i]);\r
  62     end;\r
  63 end.\r